home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / COMPILER / VP10B003 / VPC.ZIP / EXAMPLES / BP7 / TVFM / TOOLS.DIF < prev    next >
Text File  |  1995-06-22  |  1KB  |  52 lines
  1. Comparing files BP7\TOOLS.PAS and VP\TOOLS.PAS
  2. ***** BP7\TOOLS.PAS
  3.    14:  uses Drivers, Objects, Views, Dialogs, Memory, App, MsgBox,
  4.    15:    Globals, FileCopy, Gauges, Dos;
  5. ***** VP\TOOLS.PAS
  6.    14:  uses {$IFDEF OS2} Os2Base, Os2Def, {$ENDIF}
  7.    15:    Drivers, Objects, Views, Dialogs, Memory, App, MsgBox, Globals, FileCopy,
  8.    16:    Gauges, Dos, Use32;
  9.  
  10. ***** BP7\TOOLS.PAS
  11.   552:  
  12.   553:  
  13. ***** VP\TOOLS.PAS
  14.   553:  
  15.   554:  {$IFDEF OS2}
  16.   555:  
  17.   556:  function DriveValid(Drive: Char): Boolean;
  18.   557:  var
  19.   558:    DriveNum,LogDrvMap: ULong;
  20.   559:  begin                   { LogDrvMap: Bit 0: 'A:', Bit 1: 'B:', etc }
  21.   560:    if DosQueryCurrentDisk(DriveNum,LogDrvMap) = 0
  22.   561:      then DriveValid := ((1 shl (Ord(Drive) - Ord('A'))) and LogDrvMap) <> 0
  23.   562:      else DriveValid := False;
  24.   563:  end;
  25.   564:  
  26.   565:  {$ELSE}
  27.   566:  
  28.  
  29. ***** BP7\TOOLS.PAS
  30.   588:  
  31.   589:  { return a list of redirected devices (drives only) }
  32. ***** VP\TOOLS.PAS
  33.   601:  
  34.   602:  {$ENDIF}
  35.   603:  
  36.   604:  { return a list of redirected devices (drives only) }
  37.  
  38. ***** BP7\TOOLS.PAS
  39.   601:  {$IFNDEF DPMI}
  40.   602:    List := New(PDeviceCollection, Init(10,10));
  41. ***** VP\TOOLS.PAS
  42.   616:  {$IFNDEF DPMI}
  43.   617:  {$IFNDEF OS2}
  44.   618:    List := New(PDeviceCollection, Init(10,10));
  45.  
  46. ***** BP7\TOOLS.PAS
  47.   624:  {$ENDIF}
  48.   625:  
  49. ***** VP\TOOLS.PAS
  50.   640:  {$ENDIF}
  51.   641:  {$ENDIF}
  52.   642: